﻿
Imports System.IO

Public Class frameset
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.core(key) OrElse _
                attributesCollection.cols(key) OrElse _
                attributesCollection.rows(key) OrElse _
                attributesCollection.onload(key) OrElse _
                attributesCollection.onunload(key)
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "frameset")
    End Sub
End Class

Public Class frame
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.core(key) OrElse _
                attributesCollection.frameborder(key) OrElse _
                attributesCollection.longdesc(key) OrElse _
                attributesCollection.marginheight(key) OrElse _
                attributesCollection.marginwidth(key) OrElse _
                attributesCollection.noresize(key) OrElse _
                attributesCollection.scrolling(key) OrElse _
                attributesCollection.src(key) OrElse _
                attributesCollection.name(key)
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "frame")
    End Sub
End Class

Public Class noframes
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key)
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "noframes")
    End Sub
End Class
